home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / yase.arc / GROUP4.ASM < prev    next >
Assembly Source File  |  1986-12-13  |  2KB  |  52 lines
  1. ******************************************************************
  2. * COPYRIGHT (C) 1986 by Donald Krantz and James Stanley
  3. * - Note: This is a real, live, actual, registered copyright,
  4. *   and should be treated as such. This source code is from
  5. *   the book "68000 Assembly Language", Krantz and Stanley,
  6. *   Addison-Wesley Publishing Company, Reading, MA, 1986.
  7. * 
  8. *   Permission granted by the authors for non-commercial use
  9. *   in programs released to the public domain, as long as this
  10. *   copyright notice remains attached and visible.
  11. *
  12. *****************************************************************
  13. * GROUP 4 (PC Function Key) Commands
  14.  
  15.     xref    _getkey,case,up,down,right,left,down_page,up_page
  16.     xref    del_left,toggle,home,eof,default
  17.     xdef    group_4
  18.  
  19. *****************************************************************
  20. * GROUP_4 - group 4 (PC Cursor) commands
  21. group_4:
  22.     bsr    _getkey        * get switch key
  23.     move.l    #table4,a0    * load up case table address
  24.     bra    case        * returns to caller of group_2
  25. *****************************************************************
  26. * TABLE_4 - switch table for group 4 commands
  27. table4:
  28.     dc.w    10        * 10 choices
  29.     dc.w    $48        * cursor up key
  30.     dc.l    up
  31.     dc.w    $50        * cursor down key
  32.     dc.l    down        
  33.     dc.w    $4D        * cursor right key
  34.     dc.l    right
  35.     dc.w    $4B        * cursor left key
  36.     dc.l    left
  37.     dc.w    $51        * PgDn key
  38.     dc.l    down_page
  39.     dc.w    $49        * PgUp key
  40.     dc.l    up_page
  41.     dc.w    $53        * Del key
  42.     dc.l    del_left
  43.     dc.w    $52        * Ins key
  44.     dc.l    toggle
  45.     dc.w    $47        * Home key
  46.     dc.l    home
  47.     dc.w    $4F        * End key
  48.     dc.l    eof
  49.     dc.l    default
  50.  
  51.     end
  52.